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32000 FOR fl=DTO E;IF %( ft )c258#13NEXT ft 
32010 N=N+1 ; R=R+2; @C N )=%( ft ) ; NEXT R 

3 fRn®i3>«R M ::24r>Gi^B P F G::PRINT F;F0R fl ‘ DT0 * , B-*< « ,cZ S 6; IF 

32030 IF CRM=110)+CRM=111 3GOSUB H 
32040 NEXT fl; PRINT ; STOP 

T==0;FOR B=flT0 fl+5;IF CX(B)c25G-53)cG=0 T=Tb 10+RM+5; R-R+l ; NEXT B 
32060 FOR B=0TO N; IF @CB)=TPRINT #0, BbG+O, ; RETURN 
32070 NEXT B; RETURN 

32080 PRINT #4, MbG+O, ; TU=32 ; M=M+1 ; R=R+2; RETURN 




1 . 

2 . 

3 . 

4 . 

5 : RETURN 

S . MATH TEACHER 

7 .J DUNSON 

8 .REU 2/81 

9 E=420 ; 7=430 ; G=450 ; H=330 ; 1=390 ; J=400 ; K=410 ; N=360 ; 0=370 ; Q=440 

10 NT=0; GOSUB F ; CLEAR ; &C 3 )=168 ; GOSUB Q; PRINT ; PRINT ; PRINT “*> aNATH TEACH 
ER_ <*“;CY=-24; PRINT " + - b c PUSH GO! c b - +*; GOSUB E 
20 FOR D=1T0 2000; IF &C23)=1G0SUB F;GOTO 40 
30 NEXT D; FC=BC-7; GOTO 20 

40 CLEAR ; PRINT ; PRINT ; PRINT ”*> HOW MANY WOULD YOU <* LIKE THIS TIME?” 

5 GOSUB E 

50 CX=-6; INPUT ””P;IF ( P< 1 ) + ( P >100 )PRINT "a FROM 1 TO 100 PLEASE! _”;GOTO 50 
S0 GOSUB F; CLEAR ; PRINT ; PRINT ”*> SELECT SKILL LEUEL <*"; PRINT ; GOSUB G;PRI 
NT "1. Cl TO 5)”; GOSUB G; PRINT ”2. Cl TO 10)”; GOSUB G; PRINT “3. Cl TO 12) 

70 GOSUB G; PRINT "4. C5 TO 12 ) “ ; GOSUB G; PRINT ”5. C3 TO 12)” ; GOSUB G; PRINT "S 
C 12 TO 20)”; GOSUB E;M=KP; GOSUB F 

80 CLEAR ; PRINT ; PRINT “*> MAKE SELECTION <*”; PRINT ; GOSUB G; PRINT ”1, A 
DD”; GOSUB G; PRINT “2. SUBTRACT” ; GOSUB G; PRINT “3. MULTIPLY” ; GOSUB G 
90 PRINT ”4. DIUIDE” ; GOSUB G ; PRINT “5. MIXED”;GOSUB E;T=KP 
100 R=0;W=0;L=P+1; CLEAR 
110 CLEAR ; IF R+W>P~1G0SUB F;GOTG 460 
120 IF M=49A=RNB C5);B=RND C5) 

130 IF M=50A=RNB C10);B=RND C 10 ) 

140 IF M=51A=RNB C 12);B=RND C 12) 

150 IF M=52A=RND C8)+4;B=RNB C8)+4 

160 IF M=53A=RNB C4)+8;B=RND C4)+8 

170 IF M=54A=RND C8)+12;B=RND C8)+12 

180 IF T=49G0T0 250 

190 IF T=50GOTO 270 

200 IF T=51G0T0 290 

210 IF T=52G0T0 310 

220 S=RNB C 4 ) ; IF S=2G0T0 270 

230 IF S=3G0T0 290 

240 IF S=4G0TQ 310 

250 GOSUB H; GOSUB N; PRINT *1 , A, ”+“ , B, ; INPUT "”C;IF A+B=CGOTQ I 
260 GOSUB J; PRINT #2 , A+B; GOSUB K;GOTO 250 

270 GOSUB H; GOSUB N; PRINT #1 , A+B, " ~ , B» “ = ”,; INPUT ”"C;IF A=CGOTO I 
280 GOSUB J ; PRINT #2,A,;GQSUB K;GOTO 270 

230 GOSUB H; GOSUB OjPRINT #1 , A, ”b ” , B, "=” , ; INPUT ””C;IF AbB=CGOTO I 
300 GOSUB J; PRINT #2, AbB; GOSUB K;GOTO 290 

310 GOSUB H; GOSUB 0;PRINT #1 , AbB, ”c ”, B ,“=”,; INPUT ”“C;IF A=CGOTO I 
320 GOSUB J; PRINT #2, A; GOSUB K;GOTG 310 

330 L=L-1 ; CX=-6; CY=38; PRINT #i,L; GOSUB Q;BOX 0, 0, 84, 40, 1 ; BOX 0, 0, 72, 32, 2; X=~ 15; 
CY=0; IF A >9X=X-3 
340 IF B>9X=X-3 
350 RETURN 

360 IF A+B >3X=X-3; CX=X; RETURN 
370 IF AbB>3X=X-3; IF AbB>39X=X~3 
380 CX=X; RETURN 

330 CX=-18; PRINT "CORRECT !“; R=R+1 ; FOR B=1T0 200;NEXT D;GOTO 110 

400 CY=-32; PRINT ” CORRECT ANSWER IS ”,; RETURN 

410 FOR D=1T0 500; NEXT D ; W=W+ 1 ; RETURN 

420 FOR D=0TO 176; &C 10 )=B; NEXT D; RETURN 

430 FOR D=176TQ 0STEP - 1 ; &C 10 )=D ; NEXT B 



■440 BC=RND ( 32 )b8;FC=BC-l; RETURN 
450 CX=-40; RETURN 

460 PRINT ; PRINT “*> SESSION OUER <*";PRINT ;PRINT " RIGHT RNSWERS: " , # 

1,R; PRINT * WRONG RNSWERS: “,#1,W 

470 PRINT ; PRINT ;PRINT " FOR R REPERT, PUSH ..... 1 PRINT ’ FOR DIFFERENT, PUSH 
2 “ ; GOSUB E 

480 FOR D=1T0 2000; IF &( 23 )=8G0T0 100 
490 IF &C 22 )=8G0SUB F;GOTO 40 
500 NEXT D; FC=BC-7; GOTO 480 
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. MATCH MY HUMBER 
■JIM DUNSON 12x78 
•WORK MODEL 
, WxBUGS 



3: 



156,84, 2; CY=37; CX=~44; PRI 
TRY LESS T 
#3 

, F; CY=1 1 ; CX=38; PRINT #1 , L ; CY= 



10 CLEAR ;NT=0;CY=0; print “ HOW MANY PLAYERS'? Cl -9) 

20 X^KPiCLEAR ; BC=!27; FC=88; BOX 0,0^60 88 -b5 0 

NT "MATCH MY NUMBER “ ; BOX 0,32,160,1 1 ’ S8 ’ 1,B ° X 0 ’ 

30 CY-27;CX=-62; PRINT " SCORE BOX 0 22 t era i , . rv _ f , 

HAN” ; CY=2; CX=-48; PRINT "TRY MORE THAN"’ ’ ’ ’ ’ C*" 11 ; CX=-48; PRINT 

^40 CY~ - 13| CX=-62 ; PRINT "#t ” * py= ?i •ns/— r*- > n n 
. ";B=0;E=0;F=0;T=0 ’ ’ 21 , CX- G2; PR J NT ■ #2 , " ; CY=-29 ; CX=-62 ; PRINT 

50 M=0,'U=0;L=100;R=RND 09) 

60 CY=27; CX=-20; PRINT #1,” i;» q ■■ 2 - - f ■ 

2; 7S = ?p ; v R I NT #1 ’ M;G0SUB ^GBiGOSUB 430; INPUT’ “”A 
70 IF X=49G0T 0 110 

80 60SUB 470;GOSUB 490; INPUT “ "B 
S0 IF X=50GOTO 110 
100 GOSUB 480 ; GOSUB 490; INPUT ”“C 

120 IF^R=A^D=D+1^GOSUB^4G0^GOSUB^510^^^ 500;GOSUB 480 = G °SUB 500 
130 IF R=B E=E+1; GOSUB 470; GOSUB 510 
140 IF R= C F=F+1; GOSUB 480; GOSUB 510 
150 IF U>0FOR 2=1T0 1000; NEXT 2 

170 G=A>B 0=A<B S ^I-A>c ; ^T S A ® 470;GOSUB 5 00;GQSUB 480; GOSUB 500 

; W=C<R ’ H ft<E ,I " a>C ;J ^ B<C ;K = 8>R 1 0=B>C ; P=B< C ;G=B>R ; S = B <R ;U=OR 

180 IF X=50GOTO 230 
190 IF X=51G0T0 300 



200 IF K L-A 

210 IF N M=A 

220 GOTO 380 

230 IF K IF Q if G L=B 

240 IF K IF Q IF H L=A 

250 IF K IF S L=A ; M=B 

260 IF N IF Q L=B ; M=A 

270 IF N IF S IF G M=A 

280 IF N IF S IF H M=B 

290 GOTO 380 



300 IF K IF Q IF U GOSUB 530 

310 IF K IF Q IF w GOSUB 600 

320 IF K IF S IF U GOSUB 840 

330 IF N IF Q IF u GOSUB 680 

340 IF N IF S IF W GOSUB 720 

350 IF N IF S IF U GOSUB 790 

360 IF N IF Q IF W GOSUB 830 

370 IF K IF S IF W GOSUB 870 

380 IF D>3G0SUB 460; GOSUB 520 

390 IF E>9GGSUB 470; GOSUB 520 

400 IF F>9G0SUB 480; GOSUB 520 

410 IF T >0GOTO 440 

420 IF U>0GOTO 50 
430 GOTO 60 

440 FOR Z=1T0 2000; NEXT Z 
450 GOTO 10 





460 CY=-1Z;CX=~38;R 
470 CY=-2i ; CX=-38;R 
400 CY=-23;CX=-3S;K 
430 PR I SIT " YOUR T 
500 PRINT ■ 

510 PRINT “HATCHED 
520 PRINT "IS A W 
530 IF H IF J L-A 
540 IF G IF P L=B 
550 IF I IF O L=C 
560 IF H IF B=C L=A 
570 IF P IF A=C L=B 
580 IF I IF A=B L=C 
530 RETURN 
600 IF H L=A ;N=C 
610 IF G L=B ;H=C 
620 IF A=B L=A ; M=C 
530 RETURN 
640 IF J L=A ;M=B 
650 IF I L=C ;H=B 
660 IF A=C L=A ;H=B 
570 RETURN 
680 IF P L=B ;M=A 
630 IF 0 L=C ;H=A 
700 IF B=C L=B ;M=A 
710 RETURN 
720 IF G IF I H=A 
730 IF H IF 0 H=B 
740 IF J IF P M=C 
750 IF G IF B=C H=A 
760 IF 0 IF A=C H=B 
770 IF J IF A=B H=C 
780 RETURN 
730 IF G N=A ; L=C 
S00 IF H H=B ;L=C 
810 IF A-C N=A ; L=C 
820 RETURN 
830 IF I M=fl ;L=B 
840 IF J M=C ; L=B 
850 IF A=C H=A ; L=B 
860 RETURN 
870 IF O H=B ;L=A 
880 IF P M=C; L=A 
830 IF B=C M=B ; L=A 
800 RETURN 



RETURN 



RETURN 

; U=U+1 ; RETURN 
;T=T+1; RETURN 



